home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / l / lightwave3dv3.5a.dms / lightwave3dv3.5a.adf / lw1.lha / arexx_examples / lwm / LoadFonts.lwm < prev    next >
Text File  |  1994-07-11  |  764b  |  27 lines
  1. /*  Load multiple PS Fonts into Modeler  CMD: Load Fonts
  2.  *  Edit list below to load selected fonts, add a fname.# entry and change the
  3.  *  value of FontCount to the highest number you want loaded.  This script
  4.  *  is a natural candidate for a startup macro */
  5.  
  6. libadd = addlib("LWModelerARexx.port",0)
  7. call addlib "rexxsupport.library", 0, -30, 0
  8. fname.=""
  9. ftdir = '/ToasterFonts/'
  10.  
  11. FontCount=4  /* How many from this list to load  */
  12. fname.1="SoftMaker/Griffith"
  13. fname.2="SoftMaker/Istria-Regular"
  14. fname.3="SoftMaker/Marlboro"
  15. fname.4="SoftMaker/Palette"
  16. do i=1 to FontCount
  17.   font=fontload(ftdir||fname.i)
  18.   if font=0 then do
  19.     call notify(1,"!Can't load font "ftdir||fname.i)
  20.     exit
  21.     end
  22.   end
  23.  
  24. if (libadd) then call remlib("LWModelerARexx.port")
  25. exit
  26.  
  27.